(defn note-ly [pitch]
(import [abjad :as abj])
(setv note (abj.NumberedPitch pitch))
(abj.f note))

